%hash = ('name' => 'Tom', 'age' => 19);

sub PrintHash{
   my (%hash) = @_;					#my是作用域限定符

   foreach my $key ( keys %hash ){
      my $value = $hash{$key};
      print "$key : $value\n";
   }
}


# Function call with hash parameter
PrintHash(%hash);